110 A$ = " ": INVERSE : FOR I = 1 TO 41: PRINT A$;: NEXT : FOR I = 1 TO 22: HTAB 40: PRINT A$A$;: NEXT : FOR I = 1 TO 38: PRINT A$;: NEXT : POKE 2039, ASC(A$): NORMAL
160 FOR J = 1 TO 3: VTAB 17: HTAB 7: PRINT "Be Sure 'Caps Lock' is Down": FOR I = 1 TO 1000: NEXT I: VTAB 17: HTAB 6: FOR I = 1 TO 30: PRINT " ";: NEXT I: FOR I = 1 TO 2000: NEXT J
170 VTAB 21: HTAB 5: PRINT "Is this an Apple IIGS? (Y/N): ";: GET GS$
180 IF GS$ < >"Y" AND GS$ < >"N" THEN PRINT CHR$(7);: GOTO 160
190 PRINT GS$;: POKE 255,0: IF GS$ = "Y" THEN POKE 255,1
200 REM *** SET UP PATCHES ***
210 LET A$ = "3F5:4C 00 03 N 300:20 7B DD 20 52 E7 A6 50 A5 51 4C 41 F9 N 310:A9 C3 20 70 BE 60 N D823G"
220 FOR I = 1 TO LEN(A$): POKE 511 +I, ASC( MID$ (A$,I,1)) +128: NEXT : POKE 72,0: CALL -144
230 CALL 8192: REM *** CALL HEX.WIZ.BIN ***
300 HOME : REM *** FILE SELECTION ***
310 VTAB 12: HTAB 2: PRINT "Load/Save using slot: #";: GET SL$: PRINT SL$: VTAB 13: HTAB 17: PRINT "Drive: #";: GET DK$: PRINT DK$: FOR I = 1 TO 1000: NEXT I
320 PRINT D$;"PREFIX,S";SL$;",D";DK$
330 PRINT : HOME : PRINT D$;"CAT": PRINT : PRINT
340 LET N = PEEK(254): PRINT "Press Return to Cancel": PRINT "Enter Filename ";: INPUT F$
350 IF F$ = "" THEN 230
360 PRINT : PRINT "Is this a SYS or a BIN file? (S/B): ";: GET S$
370 ON N GOTO 400,500
400 REM *** BSAVE ROUTINE ***
410 LET LN = PEEK(6) +256 * PEEK(7)
420 LET BA = PEEK(8) +256 * PEEK(9): LET LO = BA -256 * INT(BA/256): LET HI = INT(BA/256)